Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 11 Then
        On Error Resume Next
        [ChangColor_With].FormatConditions.Delete
        Target.EntireRow.Name = "ChangColor_With"
        With [ChangColor_With].FormatConditions
            .Delete
            .Add xlExpression, , "TRUE"
            .Item(1).Interior.ColorIndex = 41
        End With
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
y1 = 8
z1 = 7
    y = ActiveCell.Row
    z = ActiveCell.Column
w = -4142
    If y1 <> "" Then
        Cells(y1, z1).Interior.ColorIndex = w
    End If

    With Workbooks("Book1").VBProject.VBComponents.Item("Sheet1").CodeModule
        .ReplaceLine 2, "y1 = " & y
        .ReplaceLine 3, "z1 = " & z
        .ReplaceLine 6, "w = " & ActiveCell.Interior.ColorIndex
    End With
    ActiveCell.Interior.ColorIndex = 42
End Sub